home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / wavepl / frmbig.frm < prev    next >
Text File  |  1995-12-05  |  1KB  |  60 lines
  1. VERSION 2.00
  2. Begin Form frm_big 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   0  'None
  5.    ClientHeight    =   4020
  6.    ClientLeft      =   1095
  7.    ClientTop       =   1485
  8.    ClientWidth     =   7365
  9.    Height          =   4425
  10.    Left            =   1035
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4020
  13.    ScaleWidth      =   7365
  14.    Top             =   1140
  15.    Width           =   7485
  16.    Begin PictureBox Picture1 
  17.       BackColor       =   &H00000000&
  18.       Height          =   3015
  19.       Left            =   240
  20.       ScaleHeight     =   700
  21.       ScaleMode       =   0  'User
  22.       ScaleWidth      =   6705
  23.       TabIndex        =   0
  24.       Top             =   360
  25.       Width           =   6735
  26.    End
  27. End
  28. Option Explicit
  29. 'This R & D program plots any 8 or 16 bit waveform .wav
  30. 'file into a full spectrum display
  31.  
  32. Sub Form_Load ()
  33. Me.Height = screen.Height
  34. Me.Width = screen.Width
  35.  
  36. Me.Left = 0
  37. Me.Top = 0
  38.  
  39. Picture1.CurrentX = 0
  40. Picture1.CurrentY = Picture1.ScaleHeight / 2
  41. Picture1.ForeColor = QBColor(2)
  42. Picture1.BackColor = QBColor(0)
  43.  
  44. 'Red center line(base line)
  45. Picture1.Line (0, Picture1.CurrentY)-(Picture1.ScaleWidth, Picture1.CurrentY), QBColor(4)
  46.  
  47. End Sub
  48.  
  49. Sub Form_Resize ()
  50. Picture1.Height = Me.ScaleHeight
  51. Picture1.Width = Me.ScaleWidth
  52.  
  53. End Sub
  54.  
  55. Sub Picture1_Click ()
  56. Unload Me
  57.  
  58. End Sub
  59.  
  60.